﻿Public Class frmMain

    Private Sub frmMain_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        dtpBG.Value = Now.Date.AddDays(-7)
        dtpEND.Value = Now.Date.AddDays(-1)

    End Sub

    Private Sub btn_Click(sender As System.Object, e As System.EventArgs) Handles btn.Click
        Select Case tbc.SelectedTab.Text
            Case "baidu"
                GetBaidu("", "", {""}, "")
            Case "sogou"
                GetSogouCPC("", "", "cpc")
            Case "360"
                Get360("", "", "")
        End Select
    End Sub

    Sub GetBaidu(user As String, pass As String, acc() As String, medium As String)

    End Sub
    Sub GetSogouCPC(user As String, pass As String, medium As String)

    End Sub
    Sub Get360(user As String, pass As String, medium As String)

    End Sub
End Class
